the Club Of Microprocessor Programmers, Users, and Technical Experts 
Georgia Marszalek, Editor * David Graves, Editor 


Sponsored by National Semiconductor Corp., Santa Clara, Ca. 95051 


Vol. 3, No. 2, February, 1977 


NIBL — Tiny BASIC for 
National’s SC/MP Kit 


by Mark Alexander, National Semiconductor 

Reprinted with permission from Dr. Dobb’s Journal of Computer 
Calisthenics & Orthodontia, Box E, Menlo Park, CA. 94025. 
Nov/Dec, 1976, Vol. 1, No. 10. 


Introduction 

-NIBL (National Industrial Basic Language) is a machine- 
oriented programming language for the SC/MP. It is a lan- 
guage similar to Tiny BASIC, but it also has some unique 
features. Many of these features, such as a genuinely useful 
control structure (the PASCAL-influenced DO/UNTIL) and 
the indirect operator (““@”) have been added to the language 
to aliow NIBL to be nearly as flexible as machine language 
in such applications as medium-speed process control. 

By using NIBL, one trades the high execution speed and 
low memory consumption of machine language for some very 
tangible advantages: Program readability, modifiability, and 
reliability, which are truly difficult to achieve in machine lan- 
guage programs. | 

NIBL programs are interpreted by a large (4K byte) SC/MP 
program that resides in ROM. The interpreter is broken into 
two blocks: a program written in an Intermediate (or Interpre- 
tive) Language — I. L. for short — which does the actual inter- 
pretation; and a collection of SC/MP machine language sub- - 
routines invoked by the 1. L. program. The I.L. approach is 
well-documented in Vol. 1, No. 1 of Dr. Dobb’s Journal of 
Computer Calisthenics & Orthodontia, and readers should 
refer to that issue for a more detailed description of the inter- 
. pretation process. 

In Table 1, the formal grammar for NIBL is given. This is 
the ultimate authority (other than the interpreter itself) on 
how legal NIBL statements are formed. The following descrip- 
tions of the NIBL statements will refer to portions of the gram- 
mar. Tabie 2 contains a list of the error message produced by 
the NIBL system. 


History of NIBL 

NIBL came into this world as an interpreter for Tiny BASIC, 
as originally described in the first issue of Dr. Dobb’s Journal. 
That program was written by Steve Leininger, who subsequent- 
ly left before the program was ever assembled or executed. 
The current version of NIBL is an almost complete re-write of 
the original interpreter, with changes and additions being made 
to improve the modularity of the program, to greatly increase 
execution speed, and to extend the capabilities of the language 
itself. 

The program was developed on the PACE Disk Operating 
System, and was assembled by a PACE-resident cross-assembler 
for the SC/MP. 
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System Requirements 

The NIBL interpreter is intended to be a ROM-resident program in 
the first 4K of the SC/MP address space (although it will run just as 
well in RAM). The interpreter requires at least 2K bytes of RAM 
starting at acdress 1000 (base 16), of which the interpreter uses neaiiy 
300 bytes for stacks, variables, etc., leaving the rest for the user’s pro- 
gram. Another 2K bytes of memory may be added to fill up this 4K 
page, forming what is hereafter referred to as ‘‘Page 1”’. 

The SC/MP architecture forces memory to be split into pages of 4K 
bytes each; therefore, NIBL allows seven such pages to be used for 


storing programs. NIBL programs in the seven pages are edited sepa- 


rately, but may be linked together during program execution by special 
NIBL statements described below. The first page, mentioned above, 
must be RAM since the interpreter uses part of it as temporary storage; 
the part used to store programs starts at location 111 (base 16). 

The other six pages, each of which starts at location nOO0 (base 16), 
where n is the page number, may be either RAM or ROM. Page 2 isa 
special page: it can contain a NIBL program to be executed immediate- 


‘ly upon powering up the NIBL system. 


_ The memory organization of NIBL is shown in Figure 1. 
Throughout this article, the assumption is made that the user has a 
teletype with paper tape reader and punch, as with the SC/MP Low 


Cost Development System. tn fact, NIBL was designed to use the 
.LCDS teletype interface, but to be completely independent of the 


LCDS firmware. If NIBL is to be run on its own, the system should 
have the same configuration for the teletype, with the reader relay 
being operated directiy by the SC/MP. At present, paper tape is the 
only medium for saving NIBL programs, but as soon as the hardware 
and software for a SC/MP cassette interface become available, NIBL 
will be able to link to routines for saving and loading programs with 
ease. 

Since the teletype interface is not based on a UART, the terminal 
baud rate can only be changed by modifying the timed delays in NIBL’s 
1/O routines. NIBL has been run successfully at 1200 baud with a 
CRT terminal; the listing of the program in the Appendix is for a 110 
baud system. 


Communicating with NIBL 

When the NIBL system is ready to accept input, it prompts at the 
teletype witha ">" sign. (NIBL is now in “edit mode.) The user 
then enters a line terminated by a carriage return. There are severai 
special characters that are used to edit lines as they are typed: 

Shift/O (back arrow) causes the last character typed to be deleted. 

Control/U (echoes as ‘’tU'’) causés the entire line to be deleted; 
NIBL reprompts for a new line. 

Entering a line to NIBL without a leading line number causes the 
line to be executed directly by NIBL. Most NIBL statements, as well 
as the four program control commands, rnay be executed in this 
manner, 

A line with a leading number (in the range O through 32767) is 
entered into the NIBL prograra in the current page. (Make sure that 
the value of the pseudo-variable PAGE is valid, so that the line isn’t iost 
into non-existent memory.) The NIBL editor sorts the program lines 
as they are entered into ascending order by line number. 

Typing a line number followed by a carriage return deletes that line 
from the program. Typing a line with the same number as an existing 
line’s causes the new iine to replace the old one in the program. 

Each of the seven memory pages may contain a different program, 
separate from the rest. Editing the program in one page wiil not 
affect the other pages. To switch editing from one page to another, 
simply type PAGE =n, where n is the number of the new page. 


Variables 

There are twenty-six variable names in NIBL: the letters A 
through Z. They are ali 16-bit binary variables, so they can be used 
to hold addresses as well as signed numeric data. The variables are 
already pre-deciared for the user, and spaces allocated for them 
in RAM when NIBL powers up. . 


Constants 
NIBL allows either decimal or hexadecimal (base 16) constants to 
appear in expressions. Decimal constants must lie in the range 0 
through 32767; the unary minus (‘’—’’) is used to obtain negative 
_ values. The value —32768 is a valid NIBL integer, but it is not legal as 
it stands. To represent it, use —32767—1 or #8000 instead. 
Hexadecimal! constants are denoted by a pound sign (‘"#”) followed 
by a string of hexadecimal digits (0-9, A-F). NIBL does not check for 
overrun in hex constants; consequently, only the 4 icast significant 
digits of the hex digit string are kept. 


Functions 

NIBL provides three built-in functions that may appear in any ex- 
pression. These are described as foliows: 

RND (X, Y) returns a pseudo-random integer in the range X through 
T, inclusive, where X and Y are arbitrary expressions. tn order for the 
function to work properly, the value of Y -- X should be positive and 
no greater than 32767. 

MOD (xX, Y) returns the absolute value of the remainder from X 
divided by Y (where X and Y are expressions). 

TOP (with no arguments) returns the address of the first free 
byte in the memory page currently being edited or executed. In other 
words, it is the address of the top of the NIBL program in the current 
page, plus one. : 


- Pseudo-variables 

NIBL has two pseudo-variabies in addition to the standard varia- 
bles. These are STAT and PAGE. Both of these variables may appear 
on either side of an assignment statement. 

STAT represents the SC/MP status register. The current value of 
the status register can be referred to by using STAT in an expression; 
or an assignment may be made to the status register by executing a 
statement such as STAT = 40r STAT = STAT OR #20. When NiBL 
makes an assignment to the status register in this manner, it clears the 
interrupt-enable bit of the value before it is actuatiy assigned. Note 
also that only the lower byte of the value is assigned; the high byte 
is ignored, 

The carry and overflow bits in STAT are meaningless since the 
NIBL system is continually modifying them. The utility of STAT 
lies in the fact that 5 of its bits are connected to !/O sense lines on 
the SC/MP chip. 

The pseudo-variable PAGE contains the number of the memory 
‘page currently being executed or edited. As indicated in Figure 1, 
there are seven pages in which NIBL programs may be stored; therefore, 
PAGE may lie only in the range 1 through 7. If an assignment of a 
value outside this range is rnade to PAGE, only the 3 least significant 
bits of the value are used — and zero is automatically changed to one. 

if PAGE is modified while NIBL is in edit mode, all subsequent 
editing will take place in the new page. 

if PAGE is modified by a NIBL program during execution, con- 
tro! will be passed to. the first line of the NIBL program in the new 
nage. This transfer would be effected by a statement such as PAGE = 

~6or PAGE = PAGE + 1. Thus, several NIBL programs residing in 
different 4K pages may be linked together as one large program, if 
need be. This would allow one to write a 28K STAR TREK program 
in NIBL, a Herculean and indeed foolish task. 

Control may also be transferred from one page to another by 
three other statements: RETURN, NEXT, and UNTIL. Thus, the 
first part of a subroutine or loop may be in one page, and the second 
part may be in another (with control being transferred between the 
two parts by an assignment to PAGE). In these three special cases, 
NIBL automatically updates the value of PAGE as the statements are 
executed. | 


Relational Operators 
- NIBL provides the standard BASIC relational operators, for com- 
paring the values of integer expressions. The operators are as follows: 


= equal to 
= less than or equal to 
>= greater than or equal to 
<> not equal to 
< less than 
> greater than 


All of these operators produce 1 as a result if the re'ation is true, and 
O if the relation is false. Note that the relational operators may appear 
anywhere that an expression is called for in the NIBL grammar, not 
only in IF statements. 
Arithmetic Operators 

NIBL provides the four standard arithmetic functions: addition (+), 
subtraction or unary minus (—), multiplication (*), and division (/). 
Since only integers are allowed in NIBL, all quotients are truncated (the 
MOD function can be used to obtain remainders from division). Any 
overflow or underflow (other than division by zero) is ignored by NIBL; 
the reasoning behind this is that it may often be necessary to treat 
NIBL expressions as unsigned values, such as when performing calcula- 
tions using memory addresses as the operands. Thus the value of 
32767 + 1 is —32768 (or in hexadecimal, #7F FF + 1 = #8000, which 
makes more sense). 
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Logical Operators 
in NIBL, there are three logical operations that may be performed 


on values: AND, OR, and NOT. The first two are binary operators, and 


the latter is unary. All three perform bitwise logical operations on 
16-bit arguments, producing 16-bit results. AND, OR, and NOT are 
sufficient to simulate any other logical operation, through various 
combinations of the operators. 


The Indirect Operator 

The indirect cperator “’@” realizes the functions of PEEK and POKE 
Operations in other BASICs, but with somewhat more eiegance. The 
“@" sign followed by an address (which can be a constant, variable, or 
expression in parentheses) denotes the contents of that address in 
memory. Thus, if memory location 245 (decimal) contains 60, the 
statement X = @245 would resuit in the value 60 being assigned to X. 
The indirect operator may also appear on the left side of an assignment 
statement. For example, @X=@(Y+10) would result in the memory 
location pointed to by X being assigned the value of the memory loca- 
tion pointed to by the value Y+10. 

Use of the indirect operator is not limited to reading from or 
writing to memory: it also provides a simple way to communicate 
with peripheral devices that are interfaced to the SC/MP through 
memory addresses. Note that the ‘’@’”’ operator can only access 
memory one byte at a time, and that when an assignment is made 
to a memory location, only the low order byte of the value is 
moved to the location; the high order byte is ignored. 

The indirect operator can also be used to simulate arrays in 
NIBL. For example, if we wish to define an M x N matrix of one- 
byte positive integers, we can access the (1,J)th element of the 
matrix (assuming that (0,0) is a legal element in the matrix) with 
the expression @(A+I*N+J). An assignment could be made to that 
same element by placing the expression on the left side of an assign- 
ment statement. 

Expressions 

Expressions in NIBL are made up of the components described 
above: variables, constants, function references, pseudo-variables, 
and operators binding them all together. NIBL expressions are all 
16-bit integers. Evaluation of expressions takes place left-to-right, 
and the order in which operations take place is determined by 
operator precedence and the presence of parentheses. The order of 
evaluation can be deduced from the grammar in Table 1; here is a 
table of operator precedence: 


Lowest precedence {applied last): <, >, <=, >=, =, <> 
+,—,OR 
* /, AND 


Highest precedence (applied first}: @, NOT 
Despite this, it is still safest to use plenty of parentheses in expres- 
sions to make the intent clear. 


Program Control Commands 

LIST causes the entire program in the current page to be listed. 
Listing can be halted by hitting any key on the teletype: the BREAK 
key works best. 

LIST <number > causes listing to begin at the given line number (or 
the nearest one greater than the number), rather than at the first line. 

LISTing a program is the method used to save it on paper tape. To 
accomplish this, type LIST with the punch off, then turn on the purich 
and hit carriage return. After the program is dumped, type a Shift/O 
with teletype on LOCAL so that the last character (a ‘’ >*'} will be de- 
leted when the tape is entered to NIBL at a later time. NIBL will ec- 
cept a tape made in this fashion at any time during edit mode, The 
tape reader is enabled at all times by NIBL, and it does not distinguish 
between the reader and the keyboard when accepting input. Super- 
fluous line-feed and nuil characters on the tape are echoed but ignored. 

RUN causes three actions: first, all variables are z2roed; secondly, 
all stacks (the FOR, DO, and GOSUB stacks) are cleared; and finally 
the program in the current page is executed, starting with the first 
line in sequence. 

RUN is not the only way to start program execution: GOTO and 
GOSUB can also be used to jump into a program from edit mode. For 
example, if there is a subroutine at line 1000 that is being tested, 
typing GOSUB 1000 will cause that routine to be executed, with 
NIBL returning to edit mode upon encountering a RETURN state- 
ment. When GOTO and GOSUB are used to run a program, the varia- 
bies and stacks are not cleared. 

Hitting any key while a program is being run will cause NIBL to 
break execution, printing a message and the line number where the 
break was detected. The BREAK key on the teletype works best for 
this. 

CLEAR causes all! variables to be zeroed and the three stacks men- 
tioned above to be cleared. This latter feature of the CLEAR command 
is quite useful after a stack nesting error has occurred (for example, if 
GOSUBS are nested more than eight !evels deep). 

NEW clears the programs in Page 1, and changes the value of PAGE 
to 1. This is the form of the command most likely to be used by NIBL 
novices who do not wish to be confused by the page selection features 
of NIBL. NEW should be the first thing one types in to N!GL when 
first powering up. 
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NEW <number > sets the value of PAGE to the <number >, and 
clears the program in that page. 


Assignment Statements 

Already, two different types of assignment statements have been 
mentioned: assignments to the pseudo-variables STAT and PAGE, and 
assignments to memory locations with the indirect operator. Another 
form of the assignment statement ts the conventional assignment to a 
variable (A — Z), e.g. A=A +1 or A = 32 <(4 * 1). There are also 
statements which look like string assignments, but there are not 
standard BASIC, and are described later in the section on string han- 
dling. The word “LET” is optional in front of any assignment state- 
ment (leaving it out increases execution speed, unlike most Tiny 
BASIC systems). 


If/then Statement 


The !F statements allows conditional execution of one or more 
statements (as many as can fit on one line). The syntax for the IF 
statement is: 

‘IF’ Rel-exp ‘THEN’? Statement 
which indicates that the word THEN is optional, and that any 
staternent (including another IF statement) may foilow the 
conditional expression. If the 1F condition is true (i.e. is non- 
zero), the statement following it (and any others on the line) will 
be executed; otherwise, control immediately transfers to the next 
program line. The condition does not need to contain relational 
operators: a statement such as IF MOD (A,5) THEN.... is per- 
fectly legal. In this example, the statement following the THEN 
would be executed if A were not divisible by 5. 


GOTO, GOSUB, AND RETURN STATEMENTS 

The syntax for the GOTO statement is ‘GOTO’ followed by an 
expression. The effect of the GOTO statement is to transfer control to 
the line whose number is indicated by the expression. An error occurs 
if the specified line does not exist in the current page. Unlike standard 
BASICs, any arbitrary expression can be used to specify the line number, 
as well as the usual decimal constant. This allows computed branches to 
be performed with the same effect as the ON... GOTO statement in 
standard BASIC. 

The GOSUB statement is identical to the GOTO statement in form. 
It too causes a branch to a new line, but it also saves the address of the 
following statement on a stack. When a RETURN statement is executed, 
the saved address is popped from the stack, and control returns to that 
point in the program. Since an actual address, not a line number, is 
saved on the GOSUB stack, GOSUB statements may appear anywhere 
on a muitiple-staternent line. 

GOSUBs may be nested up to eight levels deep; an error will occur 
if an attempt is made to exceed this limit. The error condition does not 
destroy the previous contents of the stack, so a RETURN statement 
can be executed (even in edit mode) without an error occurring. How- 
ever, any modification of the NIBL program will ciear the GOSUB 
stack, so that a subsequent RETURN without a GOSUB will cause an 
error. 


DO AND UNTIL STATEMENTS 

The DO and UNTIL statements are useful in writing program loops 
efficiently, without using misleading GOTO statements. Enclosing a 
group of zero or more statements between a DO statement and an 
UNTIL <condition> statement (vyhere <condition> is an arbitrary 
expression) will cause the statement group to be repeated one or more 
times until the <condition> becomes true (i.e., non-zero). As an 
example of the use of the DO and UNTIL statements, we present a 
program that prints the prime numbers: 

10 PRINT 1: PRINT 2 


20 |=3 NS ma os ante 
320 DO ~ 7 - 25 gos Cee 51 YP? 
40 J=I/2\N=2, jm eter *© 
50 DO ™_ 
60 N=N+2 
70 UNTIL (MOD(I,N=0) OR (N> J) 
80 IF N>J PRINT I 
90 =|+2 
100 UNTIL O 


DO loops rnay be nested up to eight levels deep, and NIBL acts in 
the same manner if an overf!ow occurs as it does with a GOSUS over- 
flow. NIBL also reports an error if an UNTIL statements occurs without 
a previous DQ. A single DO loop may have more than one UNTIL 
statement as a terminator. For example, if one wished to exit abnor- 
maily out of a DO loop and transfer to some appropriate line, it could 
be dene in the following manner: 

UNTIL 1: GOTO X 
where X is the line number. 

Neither the DO nor the UNTIL statement may be executed in edit 
mode, 


FOR AND NEXT STATEMENTS 

The NIBL FOR statement is virtually identical to that in standard 
BAS!Cs; consequently, it is not explained in great detail here. 

As in most BASICs, both positive and negative STEPs are allowed in 
the FOR statement, and a STEP of +1 is assumed if the STEP portion of 
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the statement is omitted. A FOR loon is terminated by a NEXT <vari- 
able> statement, and the <variable> must be the same as that referred 
to in the FOR statement at the beginning of the loop. 

FOR loops may be nested four levels deep; NIBL reports an error if 
this limit is exceeded, or if a NEXT statement occurs without a previcus 
FOR statement: As with the DO and UNTIL statements, FOR and NEXT 
may not be executed in edit mode. 

Perhaps the only differences between the NIBL FOR statement and 
that of more elaborate BAS!Cs (such as DEC’s BASIC-PLUS for the 
PDP-11}) are that a FOR loop is aiways executed at least once, and that 
when a NEXT statement is executed, the STEP value is added to the 
variable before the test is made to determine if the loop should be 
repeated (rather than after the test). 


INPUT STATEMENT 

There are two types of INPUT statements in NIBL: numeric input 
and string input. The form of the first type is ‘INPUT’ follawed by a 
list of one or more variables. When this statement is executed, NiBL 
prompts at the teletype with a question mark (''?’), The user responds 
with a list of expressions separated by commas, and terminated by a 
carriage return. For example, a legal response to the statement INPUT 
A,B,C would be #3FA,26,4*27. These three expressions would then be 
assigned to the variables A, B, and C, respectively. An illegal response 
(too few arguments or improper expressions) will result in a syntax 
error, Any extra arguments in the response are ignored. 

The second type of INPUT statement aliows strings to be input, 
The form of the statement is ‘INPUT’ ‘$’ <address>, where 
<address> is a Factor, syntactically (usually a variable, constant, or 
expression in parentheses). When this statement is executed, NIBL 
prompts the user as before, at which point the user enters a line termin- 
ated by the usual carriage return. NIBL then stores the line in memory 
in consecutive locations, beginning at the address specified. Thus, 
INPUT$ #6000 would cause the input line to be stored starting at 
location 6000 (base 16); the carriage return would also be stored at 
the end of the line. 

Strings input in this manner can be tested and manipulated by 
using the ''@" operator or the string handling staternents described 
below. They can also be displayed by a PRINT statement. 

Neither of the two !NPUT statements may be executed in edit 
mode. 

Typing control/C during input will abort execution and return to 
edit mode. 


PRINT STATEMENT 
The form of the PRINT statement is ‘PRINT’ or ‘PR’ followed by a 
list of print items separated by commas, and optionally terminated by 
a semicolon, which suppresses an otherwise automatic carriage return 
after all items in the list are printed. 
A print item consists of one of the following: 
1. A quoted string, which is printed exactly as it appears {with the 
quotes removed) 
2, An expression, which is evaiuated and printed in decimal format, 
with either a leading ssece or a minus sign (-"'}, and one 
trailing space 
3. A reference to a string in memory, denoted by ‘$’ < address>, 
where <address> is a Factor as usual. Successive memory loca- 
tions, starting at the specified address, are printed as ASCIi cher- 
acters, until a carriage return (which is not printed) is encountered. 


There is no zone spacing in the PRINT statement, nor does NIBL 


perform an automatic carriage return/line feed after printing 72 char- 
acters. NIBL is not an output-oriented language; fancy formatting has 
been sacrificed for more useful control structures and data manipula- 
tion features. (A subroutine to print a number and skip to the next print 
zone is trivial to write in NIBL — it takes about two lines of code, with 
the DO/UNTIL and FOR/NEXT.) 


STRING HANDLING STATEMENTS 


String handling in NIBL is very minimal and fow-level. The string 


handling features of the INPUT and PRINT statements have already 
been mentioned; NIBL provides two more statements for rmanipulating 
strings. 


A statement such as $< address> = “THIS IS A STRING” would 


cause the quoted string to be stored in memory starting at the specified 
address (which again is a Factor), with a carriage return being appended 
to the string. 


Ancther statement allows the prograrmmer to move strings around in 


memory once they have been created. The form of this statement is 


’$’ <destination> ‘=’ ‘'$' <source>, where both < destination > and 
<source> are Factors, and are the addresses of strings in memory. This 
statement causes all the characters in the string pointed to by <source> 
to Ge copied one-by-one to the memory pointed to by <destinaticn>, 
until a carriage return (also copied) is encountered. Overiagping the 
source and destination addresses can produce disastrous results, such as 
wiping out the entire contents of the current page. Consequently, a 
string move can be aborted by hitting the BREAK key on the teletype 
(but it must be done quickly!). 

Note that all strings referred to in these statements, and in the IN- 
PUT and PRINT statements, are assumed to lie within a 4K page, and 
wraparound is a possibility which must be anticipated by the orogrami- 
mer. (Long-time SC/MP programmers will be familiar with this rninor 
problem.) 


Using these statements, it should be very easy to develop a set of 
NIBL subroutines for performing concatenation, comparison, and sub- 
string operations on strings. 


END STATEMENT 

The END statement may appear anywhere in a NIBL program and 
not necessarily at the end. It causes a message and the current line 
number to be printed, with NIBL returning to edit mode. The END 
statement is useful when debugging programs, since it acts as a break- 
point in the program that can be removed easily. 


LINK STATEMENT 

The LINK statement allows NIBL programs to call SC/MP machine 
language routines at any address. A statement of the form ‘LINK’ 
<address>, where <address> is an arbitrary expression, will cause 
the NIBL system to call the routine at that address by executing an 
appropriate XPPC P3 instruction. The user’s routine should make sure 
that it returns by executing another XPPC P3, and that the value of P3 
upon entry to the routine is restored before returning. The routine may 
make use of the fact that P2 is set by NIBL to point to the beginning of 
the RAM block used to store the variables A through Z, with each 
variable being stored low byte first, high byte second. Thus, parameters 
may be passed between NIBL programs and machine language routines 
through the variables. Both P1 and P2 may be modified by the user's 
routines; they are automatically restored by the NIBL system upon 
return. The user should be careful not to modify RAM locations with 
negative displacements relative to P2, or the locations with displace- 
ments greater than 51 relative to P2, These locations are used by the 
interpreter. 


REMARK STATEMENT 

A comment can be inserted into a NIBL program by preceding it 
with the word REM. REM causes the rest of the line to be ignored by 
NIBL during execution. Remarks are useful in debugging programs or 
heiping other people to understand them, but of course, they take up 
valuable memory. (Then again, memory is getting cheaper all the time.) 


MULTIPLE STATEMENTS ON ONE LINE 

A program line may contain more than one statement, if the state- 
ments are separated by colons (“’:"’). Using multiple statements on a 
single line improves the readability of the program by separating it into 
small blocks, and uses less memory for storing the program. 

it is important to note that an IF statement will cause any state- 
ments appearing after it on the line to be ignored if the IF condition 
- turns Out to be false. This is the feature that allows a group of state- 
ments to be executed conditionally. 

A multiple-statement line may be entered without a line number 
i NiBL will only execute the first statement on the line, ignoring 
tne rest. 


POWERING UP 

NIBL is capable of executing a program in ROM in Page 2 immedi- 
ately upon powering up, without the need for the user to give the RUN 
sommand at the teletype. When NIBL initializes, it examines Page 2 
and makes an educated guess about the possible existence of a legal 
NIBL program in that page. If NIBL thinks there really is a program 
there, it starts executing it immediately; thus, the value of PAGE will 
be 2. But if NIBL fails to finda legal program in Page 2 initially, it sets 
the valua of PAGE to 1 (the normal case) and prompts at the teletype. 

When executing prograrns, NiBL periodically checks for keyboard 
interrupt, returning to edit mode if it detects it. Therefore, if a NIBL 
program is to be executed with the teletype disconnected, the Sense B 
line of the SC/MP should be set high so that NIBL will not sense an 
interrupt while running. This would allow a NIBL system to act as a 
process controller which starts executing immediate!y upon powering 
up. : 


TABLE 1: NIBL Grammar 


On reading the grammar: 

All items in single quotes are actual symbols in NIBL; all other 
identifiers are symbols in the grammar. The equals sign ‘’=’’, means 
“is defined as’’; parentheses are used to group several items together 
as one item; the exclamation point, “'!’.. means an exclusive-or choice 
between the items on either side of it; the asterisk, ‘’*’’, means zera 
or more occurrences of the item to its left; the plus sign, ‘’+’’, means 
one or more repetitions; the question mark, ‘’?’, means zero or one 


eee 


occurrences; and the semicolon, ‘’;’’. marks the end of a definition. 


NIBL-Line = Immediate~Statement 
I Program-Line 
? 


Immediate-Statement = (Command i Statement) Carciage-Return; 
Program-Line = (Decimal-Number Statement-List Carciege-Return) ; 
Command = ‘NEW! 

‘CLEAR' 


1 

1 *"LIST' Decimal-Nurmberc ? 
! ‘RUN'S 
z 


Statement-List = Statement {':' STATEMENT) *2 
Statement = "LET' ? Left-part ‘a#* Rel-Exp 
1 'LET' ? 'S* Factor ‘#' (String | '$* Pactor) 
1 'GO' ('TO' | ‘SUB') Rel-Exp 
1 *RETURN'‘ 
! ('PR' { ‘*PRINT’) Print-List 
! ‘IF’ Rel-Expr 'THEN' ? Statement 
1 ‘pot 
. 'UNTIL' Rel-Exp 
! 'POR' Variable '#' Rel-Exp ‘TO' Rel-Exp ('STEP' Rel-Exp) ? 
{ ‘NEXT’ Variable 
1 "INPUT’ (Variable + 1 '$' Pactor) 
1 ‘LINK’ Rel-Exp 
! "REM’ Any~Characterc-Except-Carriage-Return +¢ 
! *END' 
3 


Left-Part = (Variable |! '@' Factor | 'STAT' | 'PAGE') 3; 


Rel-Exp = Expression Relop Expression 
| Expression 
? 


Relop = tg? pot'ct tet fo tet >? EL '>' | *>? tat i Se? } 


Expression = Expression Adding-Operator term 
$ (te? | t=) 2? Teca 
H 


Adding-Operator = ‘+’ 1 ‘=" § ‘OR’ 3 


Term = Term Multiplying-Operator Pactor 
i Factor 
? 


Hultiplying-Operator = ‘®* ; '/* § ‘AND’ 3 


Pactor = Variable 

Decimal-Number 

‘(* Rel-Exp ‘')* 

‘@® Factor 

*@* Hex-Number 

"NOT' Pactor 

"HOD' '(* Rel-Exp ‘,' Rel-Exp ‘)' 
"RND' "(° Rel-Exp ‘,' Rel-Exp ')' 
*STAT' 

' Top! 

* PAGE! 


20 Or eH Om Oo Ow Oe Ge te fe Ow 


Variable = 'A' 1 'B' § 'C' 2 woe | SYS § SSS 8 
Decimal-Number = Decimal-Digit + ; 
Decimal-Digit = '@' i ‘1' £ '2° 1 woe 2 SD" 2 
Hex-Number = (Cecimal-Digit 1! Hex=-Digit) + ; 
Hex-Digit = ‘A’ £ ‘Bt § *C' § "DY § *B' 5 TPT 3 
Print-list = Print-Item + ; 

Frint-Item = (String | Rel-exp {| ‘'$' Pactor) ; 
String = '** Almost-Any-Character '"' ; 


NOTE: Spaces are not usually significant in NIBL programs, with 
the following exceptions: spaces cannot appear within key words 
(such as ‘THEN’ or ‘UNTIL’) or within constants. Also, a variable 
(such as A or Z) must be followed immediately by a non-eiphabetic 
character to distinguish it from a key word. 


TABLE 2: NIBL error messages 
Error messages are of the form: 
EEEE ERROR AT LN 


where EEEE is one of the error codes below, and LN is the number of 
of the line in which the error was encountered. 


AREA No more room left for program in current page 
CHAR Character after logical end of statement 

DIVO Division by zero 

END” No ending quote on string 

FOR FOR without NEXT 

NEST Nesting limit exceeded in expression, FOR’s, GOSUBs, etc. 
NEXT NEXT without FOR 

NOGO _ No line number corresponding to GOTO or GOSUB 
RTRN RETURN without previous GOSUB 

SNTX Syntax error 

STMT Statement type used improperly 

UNTL UNTL without DO 

VALU Constant format or value error 


Ed -- The Nov/Dec 1976 issue of DDJ also contains a pre-released 
program listing of NIBL. Copies of the issue are available for $1.50 from 
the Peoples Computer Company, P.O. Box 301, Menlo Park, CA 94025. 
A package consisting of an object paper tape, program listing, and 
manual is available through the User Library (see page 74). 
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0000 1000 
Variables, 
Stacks, 
NIBL 111D Buffers 
Interpreter TTTE 
(Required) 1o0g 
OFFF 1TFFF 


ROM RAM 


MICROPROCESSOR SECURITY 
SYSTEMS MADE EASY 


Phil Roybai, National Semiconductor 


The detection of single-bit (ON/OFF) events is basic to a wide 
range of microprocessor applications. In many of these 
applications, generation of a single-bit response (relay 
closure, alarm actuation, etc.) to some combination of inputs 
is required. Building security systems are a typical example of 
this class of application. This application brief shows how a 
simple system is built up around National’s SC/MP 
microprocessor, and how it is programmed in new, simplified, 
English-like language. 


THE CIRCUIT 


The system shown below (Figure 1) detects heat. Transistors 


+5 


3.9K L 
7k - 8094 
12 . 11 
| 13 
= 1 uF 


HEAT SENSOR | } = 


~\ _— 


wy 
—~ T= 12 = 2N2222 


470.2 
smmmt TO MEMSEL ©: 


SC/MP ADDRESS, CONTROL, 
AND DATA LINES 


Figure 1 


Required 


Optional 


Wrans 


PAGE 2 PAGE 7 


2000 | 7000 


PROGRAM PROGRAM 


7FFF I 


2FFF . a 
ROM/RAM ROM/RAM 


T1 (sensor) and T2 (reference) provide balanced inputs to an 
LM111 differential voltage comparator. When the comparator’s 
inputs are unbalanced by heating T1, its output goes high. 
When the microprocessor scans the interface (by setting 
ADDRess line 15 and activating Read Data Strobe NRDS}, 
the high LM111 output is gated onto line 0 of the SC/MP data 
bus. Up to seven more inputs from switches, pressure strips, 
phctocells, etc., could be easily connected to lines 1-7 of the 
SC/MP data bus, and further address decoding would make 
possible a virtually unlimited number of inputs. 


This system reacts to heat at sensor T1 by flashing an 
incandescent warning lamp through a power driver (T3 & T4). 
The SC/MP sets a “1” on data bus line 1 to turn the lamp on, 
and a “1” on data bus line 0 to turn it off. These signals are 
clocked by the Write Data Strobe, NWDS, into a latch (7402s) 
where they control the lamp driver. 


T3 = 2N2905 10K 


14 = 2N2219 
#57 


-12vV Q 


eee CL LC LCCC FE TO LL A A LL LOL A LET CTE PT EA A A AS CS SP es PPO Pi rte ti eee ee 
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THE PROGRAM 


Programming is done (Figure 2) using National 
Semiconductor’s version of TINY BASIC, called National 
Industrial Basic Language (NIBL for short). The programmer 
Starts by setting variables L (lamp) and T (transistor) to -1, 
the I/O address of the sensor and !amp circuits. He then 
resets the lamp to OFF by putting a “1” on data line 0 
(program line 15). 


10 L=-1,T=L 

15 @L=] 

20 IF @T-2*(@T/2)=1 THEN GOTO 35 
38 GOTO 22 

35 @L=1. 

40 F=3 

45 F=F-1 

50 IF’ F>% THEN GOTO 45 
55 @L=2 

63 F=! 

65 F=F-1 

78 IF F>@ THEN GOTO 65 
75 GOTO 15 


Figure 2, Tiny Basic Heat Sensor/Alarm Program 
Lines 20 and 30 are an idle loop, in which the processor 
repeatedly tests the sensor until heat is detected. When 
activity is sensed, the processor jumps to the flasher routine 
which holds the lamp OFF for an interval (lines 35-50), then 
turns it ON for an equal interval (lines 55-70). The processor 
then resets the lamp (line 15) and returns to the idle loop uniil 
heat is again sensed. As long as the sensor is hot, the lamp 
will appear to flash continuously. 


With NIBL as a resource, an engineer had the program 
written, debugged, and ready to go in 30 minutes. He needed 
only 13 lines of code. 


EXPANSION 


For the simple example shown here only one input and one 
output are shown. But very little additional hardware and 
software would be needed to let SC/MP control dozens of 
inputs, using many different outputs as responses. What's 
more, using NIBL as a development tool an engineer can 
complete the checkout of program logic and interface 
hardware in less time than he used to spend just defining a 
checkout procedure. ZA 


Correction to SC/MP Math Routines 


There is an error in the SC/MP math routines which can be 
corrected by inserting a CCL instruction after line 105 (LD 
0(2)). The lines should read: 


102 LOOP: LDE ;LOAD MULTIPLIER 


103 ANI 1 STEST LEAST BIT 
104 JZ NO — ;BIT iS NOT ONE — 
105 LD 0(2) jLOAD 8-BIT MULTIPLICAND 
106 CCL ;CLEAR CARRY 
107 ADD 1(2) j;ADD MULTIPLICAND 
>TO 16-BIT RESULT 
6 


PROGRAMMING 
MISCELLANI/PROGRAMMING HINTS 


These suggestions are gleamed from users, phone 
conversations and experience. They may lose accuracy or be 
obsolete by the time they are printed in the newsletter. But 
hopefully, they will help with the development and debugging 
stages of software programs, or give hints as to what may be 
causing a nasty problem. 


1) When using DEBUG or DEBUG C to debug programs on 
the IMP-16, avoid setting breakpoints in double word 
instructions. This applies to programs that are using 
instructions from the Extended CROM. The POWR/IO CROM 
or the Arithmetic CROM Debug will only allow breakpoints to 
be set up for single word instructions, that is, instructions 
whose format is 16 bits long. 


2) Revision B of the PACE Conversational Assembier has a 
bug in it. When the symbol table overflows it wipes out the 
definitions of RTS and RTI. The following patch was 
suggested by the guys from CARDION Electronics, 
Woodbury, Long Island. 


Change the instructions in the following 3 locations: 


MEMORY 
LOCATION CHANGE 
OOAE 1015 
0O0B2 1015 
1123 1029 


lf you would like to order the latest revision of this program, it 
can be ordered by sending 2 $15 check, made payable to 
Jationa! Semiconductor, to the Microprocessor Service 
Center/MS205, National Semiconductor, 2900 Semiconductor 
Dr., Santa Clara, CA. 95051, Aitn.: J. Snyder. 


3) The IMP-16-DOS version of PROMP required that address 

0322 be changed from X’6028 (AND 0, XFEOOQ) to X’6228 

(AND 0, XFEOO (2)) before one user could punch a tape 

correctly. 

PROMP is a program that generates and verifies IMP-16 or 

PACE paper tapes for PROM programming. It has the 

following capabilities: 

e Punch and verify PN forrnat PROM tape 

e@ Punch and verify BI (binary) format PROM tape 

e Punch and verify BC (binary complemented) format PROM 
tape | 

e Punch and verify paper tape LM from card LM 

4) Genldr and Dscldr for IMP-16 and PACE require one blank 

after the OTS command and before the address specified. if 

the blank isn’t there an AREA error occurs. <A 


PROGRAMMING NOTES 

If you need an arithmetic routing, such as a divice or a 
multiply, for PACE, check the PACE assembler listings. 
Another source would be one of Charlie Strain’s contributions 
to the user library, SLOO18A CALCULATOR (see Vol. 2, No. 
3, March, 1976). 


lf you adapt these routines for a PACER, we would appreciate 
a copy for the user library. CA 


SERVICES 
SC/MP Keyboard kits assembled and tested, $50.00 each. 
Two day turn-around. Send kits and a check payable to: 


Sandra T. Snyder 
71 Cedar Way 
Milipitas, California 95035 
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